home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 32
/
032.d81
/
alfredo boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
362b
|
15 lines
5 ifx=0thenx=1:load"unpacker",8,1
6 ifx=1thenx=2:load"alf.shp",8,1
7 ifx=2thenx=3:load"hi-res text.o",8,1
10 poke249,224:poke250,204:rem screen/color
20 poke251,0:poke252,64:rem shp buffer
30 poke253,0:poke254,0:rem x-pos,y-pos
35 poke53280,.: rem border
50 sys51456: rem unpack normal shp
60 sys51459
70 f$="alfredo"
80 print"[147]loadf$,8"
81 print""t$;
82 print"run"
83 poke631,13:poke632,13:poke198,2:end